home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Base.ra next >
Encoding:
Text File  |  1986-10-19  |  581 b   |  42 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Program basics
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ allows you to either work !"
  10. "in base 10 or 16.!!"
  11. 255 ! " decimal = " 
  12. Ñ         | switch to hex
  13. 0FF !
  14. ╝         | switch to decimal
  15. " hex. !!"
  16. "NOTE:  All output is forced to!"
  17. "decimal.!!"
  18. #A;
  19. "THE END."
  20. $
  21. &A  "Hit any key:" ?ñ @ ╡`
  22. |
  23. |  RA title routine
  24. |
  25. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  26.  
  27. &O
  28. 40 100 ╜
  29. "RA¬"
  30. 60 45 ╜ 
  31. "⌐ 1986 COM~LINK & S.Koren" 
  32. 80 60 ╜
  33. "All rights reserved." `
  34.  
  35. &L
  36. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  37.  
  38. &N
  39. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  40.  
  41. &P ?ñ @ `
  42. $